home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / NEWS.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  344 b   |  19 lines
  1. ' NEWS.BAS
  2. ' This program demonstrates string concatenation.
  3.  
  4. CONST STRUCTURE$ = "Bridge"
  5.  
  6. DIM action AS STRING * 10
  7. action = "is falling"
  8.  
  9. direction$ = "down"
  10.  
  11. CLS
  12.  
  13. INPUT "Please enter the name of a city:  ", cityName$
  14.  
  15. PRINT
  16. PRINT "News Flash:  ";
  17. PRINT cityName$ + " " + STRUCTURE$ + " " + action + " " + direction$ + "!"
  18.  
  19.